home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / excell1a / form4.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-08  |  6.1 KB  |  190 lines
  1. VERSION 5.00
  2. Begin VB.Form Form4 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00FF0000&
  5.    BorderStyle     =   1  'Fixed Single
  6.    ClientHeight    =   10065
  7.    ClientLeft      =   15
  8.    ClientTop       =   15
  9.    ClientWidth     =   13080
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form4"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   10065
  15.    ScaleWidth      =   13080
  16.    StartUpPosition =   3  'Windows Default
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.Timer Timer2 
  19.       Interval        =   20
  20.       Left            =   6000
  21.       Top             =   4800
  22.    End
  23.    Begin VB.Timer Timer1 
  24.       Interval        =   5
  25.       Left            =   3600
  26.       Top             =   3360
  27.    End
  28.    Begin VB.Image imgPic 
  29.       Height          =   2895
  30.       Left            =   3840
  31.       Picture         =   "Form4.frx":0000
  32.       Stretch         =   -1  'True
  33.       Top             =   5280
  34.       Width           =   2910
  35.    End
  36.    Begin VB.Image imgBalloon 
  37.       Height          =   2310
  38.       Left            =   -3040
  39.       Picture         =   "Form4.frx":14C2
  40.       Stretch         =   -1  'True
  41.       Top             =   240
  42.       Width           =   2115
  43.    End
  44.    Begin VB.Label Label3 
  45.       Alignment       =   2  'Center
  46.       BackStyle       =   0  'Transparent
  47.       Caption         =   "Click here to begin"
  48.       BeginProperty Font 
  49.          Name            =   "Verdana"
  50.          Size            =   12
  51.          Charset         =   0
  52.          Weight          =   700
  53.          Underline       =   -1  'True
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       ForeColor       =   &H00FFFFFF&
  58.       Height          =   495
  59.       Left            =   2640
  60.       MouseIcon       =   "Form4.frx":5544
  61.       MousePointer    =   99  'Custom
  62.       TabIndex        =   2
  63.       Top             =   3840
  64.       Width           =   2415
  65.    End
  66.    Begin VB.Label Label2 
  67.       AutoSize        =   -1  'True
  68.       BackStyle       =   0  'Transparent
  69.       Caption         =   "HangMan"
  70.       BeginProperty Font 
  71.          Name            =   "Comic Sans MS"
  72.          Size            =   48
  73.          Charset         =   0
  74.          Weight          =   700
  75.          Underline       =   0   'False
  76.          Italic          =   0   'False
  77.          Strikethrough   =   0   'False
  78.       EndProperty
  79.       ForeColor       =   &H0000FFFF&
  80.       Height          =   1350
  81.       Left            =   1800
  82.       TabIndex        =   1
  83.       Top             =   2280
  84.       Width           =   4200
  85.    End
  86.    Begin VB.Label Label1 
  87.       AutoSize        =   -1  'True
  88.       BackStyle       =   0  'Transparent
  89.       Caption         =   "TonysComp Presents"
  90.       BeginProperty Font 
  91.          Name            =   "Garamond"
  92.          Size            =   15.75
  93.          Charset         =   0
  94.          Weight          =   700
  95.          Underline       =   0   'False
  96.          Italic          =   0   'False
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.       ForeColor       =   &H00000000&
  100.       Height          =   360
  101.       Left            =   2520
  102.       TabIndex        =   0
  103.       Top             =   2160
  104.       Width           =   2880
  105.    End
  106. Attribute VB_Name = "Form4"
  107. Attribute VB_GlobalNameSpace = False
  108. Attribute VB_Creatable = False
  109. Attribute VB_PredeclaredId = True
  110. Attribute VB_Exposed = False
  111. Private Sub Form_Click()
  112.     Form1.Show
  113.     Form4.Enabled = False
  114. End Sub
  115. Private Sub Form_Load()
  116.     Form1.Show
  117.     Form4.WindowState = 2
  118.     Label1.Left = (Screen.Width / 2) - (Label1.Width / 2)
  119.     Label1.Top = (Screen.Height / 2) - (Label1.Height / 2) - (Label2.Height / 2) - 1000
  120.     Label2.Left = (Screen.Width / 2) - (Label2.Width / 2)
  121.     Label2.Top = (Screen.Height / 2) - (Label2.Height / 2) - 1000
  122.     Label3.Left = (Screen.Width / 2) - (Label3.Width / 2)
  123.     Label3.Top = (Screen.Height / 2) - (Label3.Height / 2) + (Label2.Height) - 1000
  124.     imgPic.Left = (Screen.Width / 2) + 1000
  125.     imgPic.Top = (Screen.Height / 2) + 500
  126.     Form4.WindowState = 2
  127. End Sub
  128. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
  129.     Label3.ForeColor = vbWhite
  130. End Sub
  131. Private Sub Image1_Click()
  132. End Sub
  133. Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
  134.     Label3.ForeColor = vbWhite
  135. End Sub
  136. Private Sub Label3_Click()
  137.     Form1.Show
  138.     Form1.Height = 0
  139.     Timer1.Enabled = True
  140.     Form4.Enabled = False
  141. End Sub
  142. Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
  143.     Label3.ForeColor = vbGreen
  144. End Sub
  145. Private Sub Timer1_Timer()
  146.     Form1.Height = Form1.Height + 105
  147.     If Form1.Height >= 6870 Then
  148.         Timer1.Enabled = False
  149.         Exit Sub
  150.     End If
  151. End Sub
  152. Private Sub Timer2_Timer()
  153.     Static Timed
  154.     If Timed = 0 Then
  155.        Dim SW, SH
  156.         Dim LineNum
  157.         SW = Screen.Width
  158.         SH = Screen.Height
  159.         LineNum = 0
  160.         Dim b
  161.         Do While SH > LineNum
  162.             Form4.Line (0, LineNum)-(SW, LineNum), RGB(100, 0, b)
  163.             LineNum = LineNum + (SH / 1000)
  164.             Form4.Line (0, LineNum)-(SW, LineNum), RGB(100, 0, b)
  165.             LineNum = LineNum + (SH / 1000)
  166.             
  167.             Form4.Line (0, LineNum)-(SW, LineNum), RGB(100, 0, b)
  168.             LineNum = LineNum + (SH / 1000)
  169.                   
  170.             Form4.Line (0, LineNum)-(SW, LineNum), RGB(100, 0, b)
  171.             LineNum = LineNum + (SH / 1000)
  172.                           
  173.             b = b + 1
  174.         Loop
  175.         Static timed2
  176.     End If
  177.     If Timed > 1000 Then
  178.         If timed2 = 0 Then
  179.             timed2 = -3000
  180.         End If
  181.         
  182.         imgBalloon.Left = timed2
  183.         timed2 = timed2 + 91
  184.     End If
  185.     If timed2 = 500000 Then
  186.         timed2 = 0
  187.     End If
  188.     Timed = Timed + 1
  189. End Sub
  190.